home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / format&printf / format.mod next >
Text File  |  1993-11-04  |  3KB  |  121 lines
  1. (*------------------------------------------
  2.  
  3.   :Program.     Format
  4.   :Author.      Dieter Bogdoll [db]
  5.   :Address.     SMail: Gudrunstr. 7, D-8000 München 19
  6.   :Address.     EMail: landon@amc.zer
  7.   :Address.     EMail: 2:246/221.3@fidonet
  8.   :Address.     EMail: bogdoll@informatik.tu-muenchen.de
  9.   :Version.     V1.0
  10.   :Date.        20-Feb-1993
  11.   :Copyright.   Public Domain
  12.   :Language.    Oberon
  13.   :Translator.  Amiga Oberon 3.00d
  14.   :Support.     Format aus io.mod, Printf: Volker Rudolph, hartmut Goebel [hG]
  15.   :Contents.    Formatierbefehle aehnlich wie in io.mod oder sprintf aus Printf
  16.   :Remarks.     Formatiersteuerung siehe Format aus io.mod
  17.   :Bugs.        nicht ausfuehrlich getestet
  18.   :History.     V0.0   [db] 15-Feb-1993 : Erstellt
  19.   :History.     V1.0   [db] 20-Feb-1993 : Gebrauchsfertig
  20.  
  21. --------------------------------------------*)
  22. MODULE Format;
  23.  
  24. (* $OvflChk- $RangeChk- $NilChk- $ReturnChk- $CaseChk- *)
  25.  
  26. IMPORT e := Exec, y := SYSTEM;
  27.  
  28. PROCEDURE RFProc; (* $EntryExitCode- *)
  29. BEGIN
  30.   y.INLINE(016C0U,  (* MOVE.B D0,(A3)+ *)
  31.            04E75U); (* RTS             *)
  32. END RFProc;
  33.  
  34. PROCEDURE Format0* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR);
  35. (* $CopyArrays- *)
  36. BEGIN
  37.   e.RawDoFmt(form,NIL,RFProc,y.ADR(str));
  38. END Format0;
  39.  
  40. PROCEDURE Format1* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR; d1:e.APTR);
  41. (* $CopyArrays- *)
  42. VAR format: STRUCT d1 : e.APTR END;
  43. BEGIN
  44.   format.d1 := d1;
  45.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  46. END Format1;
  47.  
  48. PROCEDURE Format2* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR; d1,d2:e.APTR);
  49. (* $CopyArrays- *)
  50. VAR format: STRUCT d1,d2 : e.APTR END;
  51. BEGIN
  52.   format.d1 := d1;
  53.   format.d2 := d2;
  54.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  55. END Format2;
  56.  
  57. PROCEDURE Format3* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR; d1,d2,d3:e.APTR);
  58. (* $CopyArrays- *)
  59. VAR format: STRUCT d1,d2,d3 : e.APTR END;
  60. BEGIN
  61.   format.d1 := d1;
  62.   format.d2 := d2;
  63.   format.d3 := d3;
  64.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  65. END Format3;
  66.  
  67. PROCEDURE Format4* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR; d1,d2,d3,d4:e.APTR);
  68. (* $CopyArrays- *)
  69. VAR format: STRUCT d1,d2,d3,d4 : e.APTR END;
  70. BEGIN
  71.   format.d1 := d1;
  72.   format.d2 := d2;
  73.   format.d3 := d3;
  74.   format.d4 := d4;
  75.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  76. END Format4;
  77.  
  78. PROCEDURE Format5* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR;
  79.                           d1,d2,d3,d4,d5:e.APTR);
  80. (* $CopyArrays- *)
  81. VAR format: STRUCT d1,d2,d3,d4,d5 : e.APTR END;
  82. BEGIN
  83.   format.d1 := d1;
  84.   format.d2 := d2;
  85.   format.d3 := d3;
  86.   format.d4 := d4;
  87.   format.d5 := d5;
  88.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  89. END Format5;
  90.  
  91. PROCEDURE Format6* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR;
  92.                           d1,d2,d3,d4,d5,d6:e.APTR);
  93. (* $CopyArrays- *)
  94. VAR format: STRUCT d1,d2,d3,d4,d5,d6 : e.APTR END;
  95. BEGIN
  96.   format.d1 := d1;
  97.   format.d2 := d2;
  98.   format.d3 := d3;
  99.   format.d4 := d4;
  100.   format.d5 := d5;
  101.   format.d6 := d6;
  102.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  103. END Format6;
  104.  
  105. PROCEDURE Format7* (VAR str: ARRAY OF CHAR; form: ARRAY OF CHAR;
  106.                           d1,d2,d3,d4,d5,d6,d7:e.APTR);
  107. (* $CopyArrays- *)
  108. VAR format: STRUCT d1,d2,d3,d4,d5,d6,d7 : e.APTR END;
  109. BEGIN
  110.   format.d1 := d1;
  111.   format.d2 := d2;
  112.   format.d3 := d3;
  113.   format.d4 := d4;
  114.   format.d5 := d5;
  115.   format.d6 := d6;
  116.   format.d7 := d7;
  117.   e.RawDoFmt(form,y.ADR(format),RFProc,y.ADR(str));
  118. END Format7;
  119.  
  120. END Format.
  121.